home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / ccombo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-22  |  9.2 KB  |  290 lines
  1. VERSION 2.00
  2. Begin Form frmCombo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "ComboBox Demo"
  6.    ClientHeight    =   3855
  7.    ClientLeft      =   885
  8.    ClientTop       =   1455
  9.    ClientWidth     =   5580
  10.    ClipControls    =   0   'False
  11.    Height          =   4260
  12.    Left            =   825
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3855
  15.    ScaleWidth      =   5580
  16.    Top             =   1110
  17.    Width           =   5700
  18.    Begin PictureBox picIcon 
  19.       AutoSize        =   -1  'True
  20.       BorderStyle     =   0  'None
  21.       Height          =   480
  22.       Index           =   0
  23.       Left            =   1845
  24.       Picture         =   CCOMBO.FRX:0000
  25.       ScaleHeight     =   480
  26.       ScaleWidth      =   480
  27.       TabIndex        =   11
  28.       Top             =   2490
  29.       Visible         =   0   'False
  30.       Width           =   480
  31.    End
  32.    Begin PictureBox picIcon 
  33.       AutoSize        =   -1  'True
  34.       BorderStyle     =   0  'None
  35.       Height          =   480
  36.       Index           =   1
  37.       Left            =   2340
  38.       Picture         =   CCOMBO.FRX:027A
  39.       ScaleHeight     =   480
  40.       ScaleWidth      =   480
  41.       TabIndex        =   10
  42.       Top             =   2490
  43.       Visible         =   0   'False
  44.       Width           =   480
  45.    End
  46.    Begin PictureBox picIcon 
  47.       AutoSize        =   -1  'True
  48.       BorderStyle     =   0  'None
  49.       Height          =   480
  50.       Index           =   2
  51.       Left            =   2835
  52.       Picture         =   CCOMBO.FRX:04F4
  53.       ScaleHeight     =   480
  54.       ScaleWidth      =   480
  55.       TabIndex        =   9
  56.       Top             =   2490
  57.       Visible         =   0   'False
  58.       Width           =   480
  59.    End
  60.    Begin CUACombo cbo1 
  61.       BorderStyle     =   3  'Inset
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   300
  69.       Left            =   3450
  70.       Style           =   2  'Dropdown List
  71.       TabIndex        =   4
  72.       Top             =   765
  73.       Width           =   1845
  74.    End
  75.    Begin CUACommand cmdOK 
  76.       Cancel          =   -1  'True
  77.       Caption         =   "OK"
  78.       Default         =   -1  'True
  79.       Height          =   345
  80.       Left            =   4020
  81.       StandardButton  =   1  'OK
  82.       TabIndex        =   1
  83.       Top             =   105
  84.       Width           =   1260
  85.    End
  86.    Begin ComboBox Combo2 
  87.       Height          =   300
  88.       Index           =   0
  89.       Left            =   180
  90.       TabIndex        =   2
  91.       Top             =   1110
  92.       Width           =   1500
  93.    End
  94.    Begin CUACombo Combo1 
  95.       BackColor       =   &H00FFFFFF&
  96.       BorderStyle     =   3  'Inset
  97.       DataField       =   "TEXT"
  98.       DataSource      =   "Data1"
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   8.25
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       ForeColor       =   &H00000000&
  106.       Height          =   300
  107.       Index           =   0
  108.       Left            =   1815
  109.       TabIndex        =   3
  110.       Top             =   1110
  111.       Width           =   1500
  112.    End
  113.    Begin ComboBox Combo2 
  114.       Height          =   1890
  115.       Index           =   1
  116.       Left            =   180
  117.       Style           =   1  'Simple Combo
  118.       TabIndex        =   7
  119.       Top             =   1830
  120.       Width           =   1500
  121.    End
  122.    Begin ComboBox Combo2 
  123.       Height          =   300
  124.       Index           =   2
  125.       Left            =   180
  126.       Style           =   2  'Dropdown List
  127.       TabIndex        =   5
  128.       Top             =   1470
  129.       Width           =   1500
  130.    End
  131.    Begin CUACombo Combo1 
  132.       BorderStyle     =   3  'Inset
  133.       DataField       =   "PM"
  134.       DataSource      =   "Data1"
  135.       FontBold        =   0   'False
  136.       FontItalic      =   0   'False
  137.       FontName        =   "MS Sans Serif"
  138.       FontSize        =   8.25
  139.       FontStrikethru  =   0   'False
  140.       FontUnderline   =   0   'False
  141.       ForeColor       =   &H00000000&
  142.       Height          =   300
  143.       Index           =   1
  144.       Left            =   1815
  145.       Style           =   1  'Simple Combo
  146.       TabIndex        =   8
  147.       Text            =   "Combo1"
  148.       Top             =   1830
  149.       Width           =   1500
  150.    End
  151.    Begin CUACombo Combo1 
  152.       BorderStyle     =   3  'Inset
  153.       DataField       =   "TAL"
  154.       DataSource      =   "Data1"
  155.       ForeColor       =   &H00000000&
  156.       Height          =   300
  157.       Index           =   2
  158.       Left            =   1815
  159.       Style           =   2  'Dropdown List
  160.       TabIndex        =   6
  161.       Top             =   1470
  162.       Width           =   1500
  163.    End
  164.    Begin Data Data1 
  165.       Caption         =   "CUACTLS.MDB"
  166.       Connect         =   ""
  167.       DatabaseName    =   "C:\BP\CUACTLS\CUACTLS.MDB"
  168.       Exclusive       =   0   'False
  169.       FontBold        =   0   'False
  170.       FontItalic      =   0   'False
  171.       FontName        =   "MS Sans Serif"
  172.       FontSize        =   8.25
  173.       FontStrikethru  =   0   'False
  174.       FontUnderline   =   0   'False
  175.       Height          =   270
  176.       Left            =   180
  177.       Options         =   0
  178.       ReadOnly        =   0   'False
  179.       RecordSource    =   "Test"
  180.       Top             =   765
  181.       Width           =   3135
  182.    End
  183.    Begin CUALabel lbl1 
  184.       Caption         =   "Visually more appealing."
  185.       FontBold        =   0   'False
  186.       FontItalic      =   0   'False
  187.       FontName        =   "MS Sans Serif"
  188.       FontSize        =   8.25
  189.       FontStrikethru  =   0   'False
  190.       FontUnderline   =   0   'False
  191.       Height          =   195
  192.       Index           =   3
  193.       Left            =   3435
  194.       TabIndex        =   15
  195.       Top             =   3435
  196.       Width           =   1875
  197.    End
  198.    Begin CUALabel lbl1 
  199.       Caption         =   "Can show pictures, each row can have it's own."
  200.       FontBold        =   0   'False
  201.       FontItalic      =   0   'False
  202.       FontName        =   "MS Sans Serif"
  203.       FontSize        =   8.25
  204.       FontStrikethru  =   0   'False
  205.       FontUnderline   =   0   'False
  206.       Height          =   435
  207.       Index           =   2
  208.       Left            =   3435
  209.       TabIndex        =   14
  210.       Top             =   2940
  211.       Width           =   2025
  212.    End
  213.    Begin CUALabel lbl1 
  214.       Caption         =   "Connects to databases, both the list and text field."
  215.       FontBold        =   0   'False
  216.       FontItalic      =   0   'False
  217.       FontName        =   "MS Sans Serif"
  218.       FontSize        =   8.25
  219.       FontStrikethru  =   0   'False
  220.       FontUnderline   =   0   'False
  221.       Height          =   435
  222.       Index           =   1
  223.       Left            =   3435
  224.       TabIndex        =   13
  225.       Top             =   2460
  226.       Width           =   2025
  227.    End
  228.    Begin CUALabel lbl1 
  229.       Caption         =   "CUA/Controls ComboBox are compatible with VB:s, but has some additional advantages:"
  230.       FontBold        =   0   'False
  231.       FontItalic      =   0   'False
  232.       FontName        =   "MS Sans Serif"
  233.       FontSize        =   8.25
  234.       FontStrikethru  =   0   'False
  235.       FontUnderline   =   0   'False
  236.       Height          =   780
  237.       Index           =   0
  238.       Left            =   3435
  239.       TabIndex        =   12
  240.       Top             =   1605
  241.       Width           =   2025
  242.    End
  243.    Begin CUALabel lbl 
  244.       Caption         =   "To the left you see the standard component of VB, to the right are enhanced versions from CUA/Controls."
  245.       FontBold        =   0   'False
  246.       FontItalic      =   0   'False
  247.       FontName        =   "MS Sans Serif"
  248.       FontSize        =   8.25
  249.       FontStrikethru  =   0   'False
  250.       FontUnderline   =   0   'False
  251.       ForeColor       =   &H00000080&
  252.       Height          =   435
  253.       Index           =   6
  254.       Left            =   180
  255.       TabIndex        =   0
  256.       Top             =   150
  257.       Width           =   3750
  258.    End
  259.    Begin Line Line1 
  260.       X1              =   1740
  261.       X2              =   1740
  262.       Y1              =   1095
  263.       Y2              =   3690
  264.    End
  265. Option Explicit
  266. Sub cmdOK_Click ()
  267.    Unload Me
  268. End Sub
  269. Sub Form_Load ()
  270.    Dim I%
  271.    Data1.DatabaseName = DatabaseName
  272.    ' Fill comboboxes with numbers from 1 to 10
  273.    For I = 1 To 10
  274.       Combo1(0).AddItem Format$(I)
  275.       Combo1(1).AddItem Format$(I)
  276.       Combo1(2).AddItem Format$(I)
  277.       Combo2(0).AddItem Format$(I)
  278.       Combo2(1).AddItem Format$(I)
  279.       Combo2(2).AddItem Format$(I)
  280.    Next
  281.    ' Demonstrate combobox picture support
  282.    cbo1.AddItem "Choose Font"
  283.    cbo1.ListPicture(cbo1.NewIndex) = picIcon(0)
  284.    cbo1.AddItem "Delete File"
  285.    cbo1.ListPicture(cbo1.NewIndex) = picIcon(1)
  286.    cbo1.AddItem "Copy Disk"
  287.    cbo1.ListPicture(cbo1.NewIndex) = picIcon(2)
  288.    cbo1.ListIndex = 0
  289. End Sub
  290.